﻿Module AppCommand
    Friend Sub OnFormLoad()
        With mainframe
            .LblValVersion.Text = APPSPROPERTIES.ProductVersion
            .LblValCopyright.Text = APPSPROPERTIES.Copyright
            .LblValLicense.Text = APPSPROPERTIES.License(True)
        End With

        Call FirstLoad_GetData()
    End Sub

    Friend Sub GetValues()
        With Mainframe
            .TxtServerAddress.Text = FILECONFIG.ServerAddress
            .TxtPort.Text = FILECONFIG.Port
            .TxtDatabase.Text = FILECONFIG.Database
            .TxtUsername.Text = FILECONFIG.Username
            .TxtPassword.Text = FILECONFIG.Password
        End With
    End Sub

    Friend Sub PUSH_Parameter()
        With Mainframe
            FILECONFIG.ServerAddress = Trim(.TxtServerAddress.Text)
            FILECONFIG.Port = CInt(Val(.TxtPort.Text))
            FILECONFIG.Database = .TxtDatabase.Text
            FILECONFIG.Username = .TxtUsername.Text
            FILECONFIG.Password = .TxtPassword.Text
        End With
    End Sub
End Module
